home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 2007 December / PCWKCD1207B.iso / Windows marzen / Macro ToolsWorks 6.31 / tworks.exe / Samples / Show menu of opened window and activate selected.mcr < prev    next >
Encoding:
Text File  |  2003-06-12  |  494 b   |  26 lines
  1. <#> 
  2. <#> Sample: Shows menu of all opened window and activates the selected one
  3. <#> 
  4. <cmds>
  5.  
  6. <win_enumerate>(vWindow,vNumOfWindows,0)
  7.  
  8. <if_num>("vNumOfWindows>0")
  9.  
  10.    <begloop>(vNumOfWindows)
  11.  
  12.       <if_str>("vWindow[_vLoopCounter0]!=_vStrEmpty")
  13.          <menu_additem>("vWindow[_vLoopCounter0]")
  14.       <endif>
  15.  
  16.    <endloop>
  17.  
  18.    <menu_show>(-1,-1,vWindowSelected,1,1)
  19.    <if_str>("vWindowSelected!=NO")
  20.  
  21.       <actwin>("vWindowSelected",0,0,"no")
  22.  
  23.    <endif>
  24.  
  25. <endif>
  26.